100 PRINT"[147][144]":CLR:POKE53280,1:POKE53281,1
110 Z1$=""
120 Z2$=""
130 Z3$="                                       "
140 DIMD%(5),K1%(7),K2%(7),K3%(7),S%(7,7),Q%(7,7),D$(5),DA$(5)
150 Q$="[219]EKB*":DA$(2)="  [205][221][206]1.5":DA$(3)=" 5[195]E[195]1":DA$(4)="  [206][221][205]"
160 CU=19:DA$(5)=" 6 7 8":DA$(1)=" 4 3 2":D$(0)="WARP ENGINES":D$(3)="PHASERS"
170 D$(1)="SHORT RANGE SENSORS":D$(2)="LONG RANGE SENSORS"
180 D$(4)="TORPEDOES":D$(5)="GALACTIC RECORDS"
190 PRINT"[144]  STAR TREK IS WORKING ON YOUR MISSION!
200 [150][165]D(N)[178][186]((K1%(I)[171]S1)[174]2[170](K2%(I)[171]S2)[174]2)[174].4
210 [141]650:[141]460:Q1[178]X:Q2[178]Y:X[178]8:Y[178]1:X1[178].2075:Y1[178]6.28:X2[178]3.28:Y2[178]1.8:A[178].96
220 C[178]100:W[178]10:S9[178]400:T9[178]3540[170][181]([187](1)[172]40):[137]240
230 K[178]K[170](N[179]X2)[170](N[179]Y2)[170](N[179].28)[170](N[179].08)[170](N[179].03)[170](N[179].01):K9[178]K9[171]K:[137]270
240 T0[178]3520:T[178]T0:E0[178][181]([187](1)[172]1500[170]3000):E[178]E0:P0[178][181]([187](1)[172]3[170]7):P[178]P0
250 [129]I[178]0[164]7
260 [129]J[178]0[164]7:K[178]0:N[178][187](1):[139]N[179]X1[167]N[178]N[172]64:K[178](N[179]Y1)[171]Y:[137]230
270 B[178]([187](1)[177]A):B9[178]B9[171]B:Q%(I,J)[178]K[172]C[170]B[172]W[171][181]([187](1)[172]X[170]Y):[130] J,I
280 [139]K9[177](T9[171]T0)[167]T9[178]T0[170]K9
290 [139]B9[177]0[167]310
300 [141]460:Q%(X,Y)[178]Q%(X,Y)[171]10:B9[178]1
310 [153]"OBJECTIVE:DESTROY";K9;"KLINGON CRUISERS IN";T9[171]T0;"YEARS"
320 [153]:[153]"THE NUMBER OF BASES IS";B9:[141]620:K0[178]K9
330 A[178]0:[139]Q1[179]0[176]Q1[177]7[176]Q2[179]0[176]Q2[177]7[167]N[178]0:S[178]0:K[178]0:[137]350
340 N[178][182](Q%(Q1,Q2)):Q%(Q1,Q2)[178]N:S[178]N[171][181](N[173]10)[172]10:K[178][181](N[173]100)
350 B[178][181](N[173]10[171]K[172]10):[141]460:S1[178]X:S2[178]Y
360 [129]I[178]0[164]7:[129]J[178]0[164]7:S%(I,J)[178]1:[130] J,I:S%(S1,S2)[178]2
370 [129]I[178]0[164]7:K3%(I)[178]0:X[178]8:[139]I[177][178]K[137]390
380 [141]470:S%(X,Y)[178]3:K3%(I)[178][187](TI)[172]400[170]200:[139][187](1)[179]0.05[167]K3%(I)[178]1200
390 K1%(I)[178]X:K2%(I)[178]Y:[130]:I[178]S
400 [139]B[177]0[167][141]470:S%(X,Y)[178]4
410 [139]I[177]0[167][141]470:S%(X,Y)[178]5:I[178]I[171]1:[137]410
420 [141]540:[139]D%(1)[177]0[167][141]490:I[178]1:[137]660
430 [141]1860:[141]1770:[141]1760
440 [139]A[178]0[167][141]490:[141]1770
450 [137]680
460 X[178][181]([187](1)[172]8):Y[178][181]([187](1)[172]8):[142]
470 [141]460:[139]S%(X,Y)[177]1[167]470
480 [142]
490 [139]K[179]1[167][142]
500 [139] C$[178]"DOCKED"[167][141]1900:[153]"BASE PROTECTS ENTERPRISE":[142]
510 [129]I[178]0[164]7:[139]K3%(I)[179][178]0[167][130]:[142]
520 H[178]K3%(I)[172]1.2[172][187](1):H[178]1[170][181](H[173][165]D(0)):E[178]E[171]H
530 [141]1900:[153]"HIT OF";H;"FROM";K1%(I)[170]1;"-";K2%(I)[170]1;:[130]:[142]
540 [129]I[178]S1[171]1[164]S1[170]1:[129]J[178]S2[171]1[164]S2[170]1
550 [139]I[179]0[176]I[177]7[176]J[179]0[176]J[177]7[167]590
560 [139]S%(I,J)[179][177]4[167]590
570 C$[178]"DOCKED":[129]N[178]0[164]5:[139]D%(N)[177]0[167][141]1900:[153]"ENTERPRISE REPAIRED":N[178]5
580 [130]N:E[178]E0:P[178]P0:[141]650:I[178]S1[170]1:J[178]S2[170]1:[130]J,I:[142]
590 [130]J,I:[139]K[177]0[167]C$[178]"REDSTOP":[142]
600 [139]E[179]E0[172].2[167]C$[178]"SYSYELLOWSTOP":[142]
610 C$[178]"GREENSTOP":[142]
620 [153]"OK?";
630 [161]E$:[139]E$[178]""[167] 630
640 [153] " WAIT";:[142]
650 [129]N[178]0[164]5:D%(N)[178]0:[130]:[142]
660 [141]1760:[153]D$(I);" DAMAGED";
670 [141]1900:[153]D%(I);"YEARS FOR REPAIR":[139]A[178]1[167][142]
680 [141]1900:[153]"COMMAND?";:[141]630:[141]1720
690 [139]A[179]1[176]A[177]6[167]710
700 [145]A[137]780,420,1380,1250,760,1430
710 CU[178]25
720 [129] J[178]0[164]5:[141]1900
730 [153]"";[200](D$(J),1);"WAIT=";D$(J)
740 [129] I[178]1[164]200:[130]I
750 [130]J:[137]680
760 [139]D%(4)[177]0[167][153]"SPACE CRUD BLOCKING TUBES";:I[178]4:[137]670
770 N[178]15:[139]P[179]1[167][153]"NO TORPEDOES LEFT":[137]680
780 CU[178]19:[129]J[178]1[164]5:[141]1900:[153]DA$(J):[130]:[153]"ONON";
790 [153][163]12)"COURSE (1-8.9)";
800 [133]C:[139]C[179]1[176]C[177]8.9[167]680
810 [139]A[178]5[167]P[178]P[171]1:[137]970
820 [153][163]12);:[133]"WARP (0-12)";W:[139]W[179][178]0[176]W[177]12[167]680
830 [139]W[179][178].2[176]D%(0)[179][178]0[167]860
840 [141]1900:[153]D$(0);" DAMAGED, MAX IS .2";:I[178]0
850 [141]670:[129]J[178]0[164]800:[130]J:[137]780
860 [139][187](1)[177].33[167]940
870 X[178][181]([187](1)[172]6):[139][187](1)[177].7[167]900
880 D%(X)[178]D%(X)[170][181](6[171][187](1)[172]5):[141]1900:[153] "SPACE STORM: ";
890 [153]D$(X);" BROKENWAIT":I[178]X:[141]670:D%(X)[178]D%(X)[170]1:[137]940
900 [129]I[178]X[164]5:[139]D%(I)[177]0[167]930
910 [130]:[129]I[178]0[164]X:[139]D%(I)[177]0 [167]930
920 [130]:[137]940
930 D%(I)[178]1:[141]1900:[153]"*SCOTTY  HITS IT WITH A HAMMER*WAIT"
940 [129]I[178]0[164]5:[139]D%(I)[178]0[167]960
950 D%(I)[178]D%(I)[171]1:[139]D%(I)[179][178]0[167]D%(I)[178]0:[141]1900:[153]D$(I);" ARE FIXED"
960 [130]:N[178][181](W[172]8):E[178]E[171]3[172]N:T[178]T[170]1:S%(S1,S2)[178]1
970 Y1[178]S1[170].5:X1[178]S2[170].5:[139]T[177]T9[167]1570
980 Y[178](C[171]1)[172].785398:X[178][190](Y):Y[178][171][191](Y)
990 E$[178]"E":Y4[178]S1:X4[178]S2
1000 [139]A[178]5[167]E$[178]"(null)STOP":X4[178]8
1010 [129]I[178]1[164]N:Y1[178]Y1[170]Y:X1[178]X1[170]X:Y2[178][181](Y1):X2[178][181](X1)
1020 [139]X2[179]0[176]X2[177]7[176]Y2[179]0[176]Y2[177]7[167]I[178]N:[130]:[137]1200
1030 [139]S%(Y2,X2)[178]1[167][141]1660:[130]:[137]1150
1040 I[178]N:[130]:[139]A[178]5[167][141]1660:Y3[178]Y2:X3[178]X2:[141]1700:[141]1840
1050 [141]1760:[139]A[178]1[167][153]"BLOCKED BY ";
1060 [145]S%(Y2,X2)[171]3[137]1130,1110
1070 [153]"KLINGON";:[139]A[178]1[167]1140
1080 [129]I[178]0[164]7:[139]Y2[179][177]K1%(I)[167]1100
1090 [139]X2[178]K2%(I)[167]K3%(I)[178]0
1100 [130]:K[178]K[171]1:K9[178]K9[171]1:[137]1160
1110 [153]"STAR";:[139]A[178]5[167]S[178]S[171]1:[137]1160
1120 [137]1140
1130 [153]"STARBASE";:[139]A[178]5[167]B[178]2:[137]1160
1140 [153]" AT SECTOR";Y2[170]1;"-";X2[170]1:Y2[178][181](Y1[171]Y):X2[178][181](X1[171]X)
1150 S1[178]Y2:S2[178]X2:S%(S1,S2)[178]2:[137]1180
1160 [153]" DESTROYED!";:[139]B[178]2[167]B[178]0:[153]"....GOOD WORK!";
1170 [153]:S%(Y2,X2)[178]1:Q%(Q1,Q2)[178]K[172]100[170]B[172]10[170]S:[139]K9[179]1[167]1600
1180 [141]540
1190 [141]490:[141]1770:[137]680
1200 [139]A[179][177]5[167]1230
1210 Y3[178]Y4:X3[178]X4:[141]1700:[153]"(null)CMD";
1220 [141]1760:[153]"M I S S E D !":[137]1180
1230 Q1[178][181](Q1[170]W[172]Y[170](S1[170].5)[173]8):Q2[178][181](Q2[170]W[172]X[170](S2[170].5)[173]8)
1240 Q1[178]Q1[171](Q1[179]0)[170](Q1[177]7):Q2[178]Q2[171](Q2[179]0)[170](Q2[177]7):[137]330
1250 I[178]3:[139]D%(I)[177]0[167]660
1260 [141]1760:[133]"PHASERS READY.UNITS TO FIRE";X:[139]X[179][178]0[167]680
1270 [139]X[177]E[167][153]"YOU'VE ONLY GOT";E:[137]1260
1280 E[178]E[171]X:[129]I[178]0[164]7:[139]K3%(I)[179][178]0[167]1350
1290 H[178][181](X):K3%(I)[178]K3%(I)[171]H:[141]1900
1300 [139] K3%(I)[179]0[167]H[178]H[170]K3%(I)
1310 [153]"HIT OF"H"ON K AT"K1%(I)[170]1"-"K2%(I)[170]1",";
1320 [139]K3%(I)[177]0[167][153]K3%(I);"LEFT";:I[178]7:[130]:[137]1360
1330 [153] "*DESTROYED*WAIT";:Y3[178]K1%(I):X3[178]K2%(I):[141]1700:[141]1840
1340 K[178]K[171]1:K9[178]K9[171]1:S%(K1%(I),K2%(I))[178]1:Q%(Q1,Q2)[178]Q%(Q1,Q2)[171]100:X[178]X[171]H
1350 [130] I
1360 [139]K9[179]1[167]1600
1370 [137]1180
1380 [141]1760:CU[178]24:I[178]2:[139]D%(I)[177]0[167]660
1390 [153] D$(I);" FOR QUADRANT";Q1[170]1;"-";Q2[170]1
1400 [129]I[178]Q1[171]1[164]Q1[170]1:[129]J[178]Q2[171]1[164]Q2[170]1:[153]"  ";
1410 [139]I[179]0[176]I[177]7[176]J[179]0[176]J[177]7[167][153]"***";:[137]1520
1420 Q%(I,J)[178][182](Q%(I,J)):[137]1490
1430 I[178]5:[139]D%(I)[177]0[167]660
1440 [153]"LOADCUMULATIVE GALACTIC SPACE MAP FOR":[153]"  STARDATE";T
1450 [153]"  QUADRANT";Q1[170]1;"-";Q2[170]1:[153]
1460 [153]"    1   2   3   4   5   6   7   8"
1470 [129]I[178]0[164]7:[153]I[170]1;:[129]J[178]0[164]7
1480 [139]Q%(I,J)[179]0[167][153]"***";:[137]1520
1490 E$[178][196](Q%(I,J)):E$[178]"00"[170][202](E$,2)
1500 [139] I[178]Q1[175]J[178]Q2 [167][153]"";[201](E$,3);"WAIT";:[137]1520
1510 [153] [201](E$,3);
1520 [153]" ";:[130]:[153]"      ":[130]:[139]A[179][177]3[167][137]1540
1530 [129]I[178]0[164]1800:[130]:[141]490:[141]1770:[137]680
1540 [141]620:[141]490:[129]I[178]0[164]400:[130] :[153]"LOAD":[141]1760:[137]420
1550 [129]I[178]1[164]2500:[130]:[153]"LOADIT IS STARDATE";T:[153]:[129]I[178]0[164]1800:[130]I
1560 [142]
1570 [141]1550:[153] "THANKS TO YOUR BUNGLING THE FEDERATION  WILL BE";
1580 [153]" CONQUERED BY THE REMAINING";K9:[153]"KLINGONS!":[153]
1590 [153]"YOU ARE DEMOTED TO CABIN BOY!":[153]:K0[178]0:[137]1630
1600 [141]1550:[153]"  THE FEDERATION AND YOUR ASS HAVE BEEN SAVED !":[153]
1610 [153]"YOU ARE PROMOTED TO ADMIRAL":[153]
1620 [153]"YOU SLAUGHTERED";K0[171]K9;" KLINGONS IN"T[171]T0;" YRS.":[153]
1630 [153]"RATING =";[181](1000[172](K0[171]K9)[173](T[171]T0)):[153]
1640 [133]"TRY AGAIN";E$:[139][200](E$,1)[178]"Y"[167]100
1650 [128]
1660 Y3[178]Y2:X3[178]X2:[141]1700:[153]E$
1670 [139]X2[178]X4[175]Y2[178]Y4[167][142]
1680 Y3[178]Y4:X3[178]X4:[139]X4[179]8[167][141]1700:[153]"(null)"
1690 Y4[178]Y2:X4[178]X2:[142]
1700 [153][200](Z1$,Y3[172]2[170]3);[200](Z2$,X3[172]2[170]2);
1710 [142]
1720 [129]X3[178]1[164]6:[139]E$[178][200](D$(X3[171]1),1)[167] 1740
1730 [130]:[153]E$:A[178]7:[137]1750
1740 [153]"";D$(X3[171]1):A[178]X3:[129]I[178]1[164]400:[130]
1750 CU[178]19:[141]1900:[142]
1760 [129]X3[178]1[164]6:[141]1900:[130]:[142]
1770 [139]E[179][178]0[137]1570
1780 [153]""[200](Z2$,20)"YEARS=   CMDCMDCMD"T9[171]T
1790 [153][163]20)"CONDITION "C$" "
1800 [153][163]20)"QUADRANT="Q1[170]1"-"Q2[170]1
1810 [153][163]20)"ENERGY=     CMDCMDCMDCMDCMD"[181](E):[153][163]20)D$(4)"="P
1820 [153][163]20)"KLINGONS LEFT=   CMDCMDCMD";K9
1830 [142]
1840 [140]:[129]X3[178]1[164]7:[135] E$:[153] E$;:[129]Y3[178]1[164]60:[130]Y3:[130]X3:[142]
1850 [131]"+CMD"," WAITCMD","(null)CMD"," CMD","ONCMD(null)RIGHT$CMDCMDCMDMID$(null)ONCMDCMD","ONCMD  CMDCMDCMD  ONCMDCMD","(null)CMD"
1860 [153]"LOADORTAN1TAN2TAN3TAN4TAN5TAN6TAN7TAN8TAN^":[153]"(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null) (null) (null)"
1870 [129]I[178]0[164]7:[153]"CMD";I[170]1;"CMDTAN";:[129]J[178]0[164]7:[153][202](Q$,S%(I,J),1);"TAN";:[130]
1880 [153]"< "
1890 [153]"(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)":[130]:[153]"/TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TANEXP":[142]
1900 CU[178]CU[170]1:[139]CU[177]24[167]CU[178]20
1910 [153][200](Z1$,CU);Z3$:[153][200](Z1$,CU);:[142]